home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / mouseocx / frmdemov.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-01-02  |  2.2 KB  |  72 lines
  1. VERSION 5.00
  2. Object = "{EFCBD60E-81ED-11D1-8562-444553540000}#9.0#0"; "MouseHookOcx.ocx"
  3. Begin VB.Form FrmDemoVb5 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3570
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3570
  11.    ScaleWidth      =   4680
  12.    StartUpPosition =   2  'CenterScreen
  13.    Begin MouseHookOcx.MouseRx MouseRx1 
  14.       Left            =   240
  15.       Top             =   1080
  16.       _ExtentX        =   820
  17.       _ExtentY        =   820
  18.    End
  19.    Begin VB.CommandButton Command2 
  20.       Caption         =   "Enable Right Click"
  21.       Height          =   675
  22.       Left            =   1500
  23.       TabIndex        =   1
  24.       ToolTipText     =   "Click to UnLock"
  25.       Top             =   1620
  26.       Width           =   1875
  27.    End
  28.    Begin VB.CommandButton Command1 
  29.       Caption         =   "Disable Right Click"
  30.       Height          =   675
  31.       Left            =   1500
  32.       TabIndex        =   0
  33.       ToolTipText     =   "Click to lock"
  34.       Top             =   540
  35.       Width           =   1875
  36.    End
  37.    Begin VB.Label Label1 
  38.       Caption         =   "Right click where ever you want"
  39.       BeginProperty Font 
  40.          Name            =   "MS Sans Serif"
  41.          Size            =   12
  42.          Charset         =   0
  43.          Weight          =   700
  44.          Underline       =   0   'False
  45.          Italic          =   0   'False
  46.          Strikethrough   =   0   'False
  47.       EndProperty
  48.       Height          =   495
  49.       Left            =   420
  50.       TabIndex        =   2
  51.       Top             =   2580
  52.       Width           =   3915
  53.    End
  54. Attribute VB_Name = "FrmDemoVb5"
  55. Attribute VB_GlobalNameSpace = False
  56. Attribute VB_Creatable = False
  57. Attribute VB_PredeclaredId = True
  58. Attribute VB_Exposed = False
  59. Option Explicit
  60. Private Sub Command1_Click()
  61.  'Enables right click hook !!!
  62.  MouseRx1.Enabled = True
  63. End Sub
  64. Private Sub Command2_Click()
  65. 'Enables right click hook !!!
  66. ' It's easy !!!
  67.  MouseRx1.Enabled = False
  68. End Sub
  69. Private Sub MouseRx1_MouseMessage(MSG As String)
  70.  MsgBox "State : " & MSG
  71. End Sub
  72.